home *** CD-ROM | disk | FTP | other *** search
/ Basic Press Kit / Basic Press Kit.iso / pc / progthis.dxr / 00001.ls next >
Encoding:
Text File  |  2001-10-11  |  326 b   |  25 lines
  1. on enterFrame
  2. end
  3.  
  4. on exitFrame
  5.   go(the frame)
  6. end
  7.  
  8. on keyDown
  9.   if (the key = the commandDown) and "." then
  10.     doDefaultButton()
  11.   end if
  12. end
  13.  
  14. on doDefaultButton
  15.   global gDefaultButton
  16.   tell the stage
  17.     closeMe()
  18.   end tell
  19.   btnName = member("Btn1").text
  20.   tell the stage
  21.     abort()
  22.     return btnName
  23.   end tell
  24. end
  25.